home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / class.d < prev    next >
Text File  |  1996-08-20  |  899b  |  52 lines

  1. /*
  2.  *
  3.  *    Copyright (c) 1993-1996 Algorithms Corporation
  4.  *    3020 Liberty Hills Drive
  5.  *    Franklin, TN  37067
  6.  *
  7.  *    ALL RIGHTS RESERVED.
  8.  *
  9.  *
  10.  *
  11.  */
  12.  
  13. defclass Class : Behavior;
  14.  
  15. objrtn Class_initialize(void)
  16. {
  17.     static    int    done = 0;
  18.  
  19.     /*  Class creation and some of the methods are initialized by
  20.         the kernel  */
  21.  
  22.     if (done)
  23.         return Class_c;
  24.  
  25.     done = 1;
  26.  
  27. /*    Class_c = gNewClass(Class, "Class", 0, 0, Behavior, END);    */
  28.  
  29.     return Class_c;
  30. }
  31.  
  32. #if 0  /*  code for the benefit of dpp  */
  33.  
  34. cmeth    gFindClass(char *name){}
  35. cmeth    gNewStdClass(char *name, int ivsize, object mc, int nipib, object superclasses, ...){}
  36. cmeth     gNewClass(char *name, int ivsize, int cvsize, object superclasses, ...){}
  37.  
  38. #endif
  39.  
  40.  
  41. /*
  42.  *
  43.  *    Copyright (c) 1993-1996 Algorithms Corporation
  44.  *    3020 Liberty Hills Drive
  45.  *    Franklin, TN  37067
  46.  *
  47.  *    ALL RIGHTS RESERVED.
  48.  *
  49.  *
  50.  *
  51.  */
  52.